1 |
|
2 |
Meadow View Observatory Shut Down
Script
|
3 |
|
4 |
Set myActiveHome = Wscript.CreateObject("x10.ActiveHome") Set myCam = WScript.CreateObject("CCDSoft2XAdaptor.CCDSoft5Camera") Set mymount = WScript.CreateObject("TheSkyXAdaptor.RASCOMtele") Set myScope = Wscript.CreateObject("AstroPhysicsV2.Telescope") Set mySky = Wscript.CreateObject("TheSkyXAdaptor.RASCOMTheSky") Set Speech = CreateObject("SAPI.SpVoice") Sub SpeakText(sText) sText="Shutting down meadow view observatory systems" sText="Park Telescope" If myscope.Connected= True Then sText="Telescope Parked" sText="Shut down The Sky X" sText="Power off Main camera and filter Wheel" sText="Power off Astro Physics Mount" sText="Turn off red lights" sText="Turn on security lights" myActiveHome.SendAction "sendplc", "E4,off" 'Turn off Security Lights myActiveHome.SendAction "sendplc", "E4,on" 'Turn on Security Lights myActiveHome.SendAction "sendplc", "E4,off" 'Turn off Security Lights myActiveHome.SendAction "sendplc", "E4,on" 'Turn on Security Lights sText="Lower light shield" myActiveHome.SendAction "sendplc", "J1,on" 'Turn on White light sText="Meadow view observatory systems are now shutdown" |